home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ Shell Folders 2.xpl < prev    next >
Text File  |  2000-11-15  |  2KB  |  75 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="4"
  3. "COUNT"="3"
  4. "UIPATH"="System\File System\Folders: System"
  5. "NAME"="Windows Folders #1"
  6. "VERSION"="1.15"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Setup Folder"
  9. "TEXT 2"="Startup Folder"
  10. "TEXT 3"="Cache Folder
  11. "DESCRIPTION 1"=""Setup Folder" specifies where the files of your Windows Setup are located."
  12. "DESCRIPTION 2"=""Startup" specifies the folder where all included links and programs are executed when Windows starts."
  13. "DESCRIPTION 3"=""Cache" specifies the folder for TEMP files that should be cached. For example, Internet Explorer uses this folder for its downloaded HTML and image files."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18. "COMMENT 2"="Thanks to Pierre Szwarc for his help!"
  19.  
  20.  
  21. bWin95=true
  22. sP1="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\"
  23. sP2="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\"
  24.  
  25. Sub Plugin_Initialize 
  26.  s=RegReadValue("HKLM\Software\Microsoft\Windows\CurrentVersion\Setup\SourcePath")
  27.  if IsEmpty(s) then
  28.     s=RegReadValue("HKLM\Software\Microsoft\Windows NT\CurrentVersion\SourcePath")
  29.     bWin95=false
  30.  end if
  31.  SetUIElement 1,s
  32.  
  33.  
  34.  s=RegReadValue(sP1 & "Startup")
  35.  SetUIElement 2,s
  36.  
  37.  s=RegReadValue(sP1 & "Cache")
  38.  SetUIElement 3,s
  39. End Sub
  40.  
  41.  
  42. Sub Plugin_CheckData(ElementIndex)
  43. End Sub
  44.  
  45.  
  46.  
  47. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  48.  s=GetUIElement(1)
  49.  if bWin95 then
  50.   Call RegWriteValue("HKLM\Software\Microsoft\Windows\CurrentVersion\Setup\SourcePath",s,1)
  51.  else
  52.   Call RegWriteValue("HKLM\Software\Microsoft\Windows NT\CurrentVersion\SourcePath",s,1)
  53.  end if
  54.  
  55.  
  56.  s=GetUIElement(2)
  57.  Call RegWriteValue(sP1 & "Startup",s,1)
  58.  Call RegWriteValue(sP2 & "Startup",s,1)
  59.  
  60.  s=GetUIElement(3)
  61.  Call RegWriteValue(sP1 & "Cache",s,1)
  62.  Call RegWriteValue(sP2 & "Cache",s,1)
  63.  
  64.  
  65.  
  66.  Call Restart 'Required because of ActiveDestop and other crap
  67. End Sub
  68.  
  69.  
  70. Sub Plugin_Terminate 
  71. End Sub
  72.  
  73.  
  74.  
  75.